#! 
# by jzhang @ 16:05 2004-09-27  mailto:jzhang533@gmail.com
#
# demostrate how to parse the command line options using perl module

#use warnings;
use File::Basename;
use Getopt::Std;

getopt('abcd');
print $opt_a,$/;
print $opt_b,$/;
print $opt_c,$/;
print $opt_d,$/;
print $opt_e,$/;
print $opt_f,$/;
